<%
badwordFilter =
"Acik"
Dim
badword
badword =
"fuck|suck|sex"
metin = Request.Form(
"metin"
)
strwords = Split(badword,
"|"
For
I = 0 to Ubound(strwords)
metin = Replace(metin, strwords(I),
String
(Len(strwords(I)),
"*"
), 1,-1,1)
next
If
badwordFilter=
Then
Response.Write metin
else
End
%>
Örneğin Bir Habere Yorum Yazacaksınız. Yukarıdaki Kodu Sayfanızın Form Bilgilerinin Olduğu Sayfaya Eklemelisiniz. Yukarıdaki Kod
'da "badword" bölümüne istediğiniz kelimeleri "|" ile ayırarak ekleyin. "metin" yazan yerlere ise kendi form adınızı yazın. (örn: yorum)